home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE2 / PD / CAMPINS.ZIP / Dilbert < prev    next >
Text File  |  2002-05-24  |  973b  |  36 lines
  1. If "<ChangeFSI$Dir>" = "" Then Error Please open a Filer directory containing !ChangeFSI V1.15 (or better) then try again.
  2.  
  3. | This turns on or off the Hourglass when ChangeFSI is converting.
  4. | If you don't want it on Make the line below 'Off'
  5. Set ChangeFSI$Hourglass On
  6.  
  7. Set ChangeFSI$Cache 2000k
  8.  
  9. WimpSlot -min 2000K
  10. WimpSlot -next 2000K
  11.  
  12. Set campin$dir <obey$dir>.resources
  13. Set campin$path <campin$dir>.
  14. DIR <campin$dir>
  15.  
  16. | Dilbert cartoon - updated weekdays.
  17. curl --env http://www.unitedmedia.com/comics/dilbert/  -o today -s
  18. campin:errorcheck
  19.  
  20. campin:getimgsrc "--Today's"
  21.  
  22. SetEVAL surl "http://www.unitedmedia.com" + "<urlstring>"
  23. DO campin:curl --env <surl> -o image -S -s
  24. campin:errorcheck
  25.  
  26. campin:camchk campin:Image
  27.  
  28. campin:CFSI campin:Image campin:sprite 28r 10:8 -nomode { > null: }
  29.  
  30. Backdrop -C campin:sprite
  31.  
  32.  
  33. SETEVAL hhmmss  ("<SYS$TIME>" LEFT 2) + (("<SYS$TIME>" LEFT 5) RIGHT 2) + ("<SYS$TIME>" RIGHT 2)
  34.  
  35. |COPY campin:Sprite campin:saved.spr<hhmmss> ~V~CFN
  36.